<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>3071</cardID>
<listID>2073</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>128</width>
<height>128</height>
</cardSize>
<script>on startUpaddColor installaddColor colorRect, cd, the rect of this card, "65535, 25000,0",1set the userLevel to 5end startUpon openStackglobal colorSet, audioInUseaddColor depthif the result is not in "8,16,24,32" then addColor installaddColor colorRect, cd, the rect of this card, "65535, 25000,0",1GET THE STACKSINUSEPUT ("AUDIO HELP" IS IN IT) INTO AUDIOINUSEif audioinuse is true then stop using stack "Audio Help"setUpMenushideTheWindowscolorSetUppass openStackend openStackon openCardset the icon of cd btn 1 to 0if there is a menu "Spooky Picture!" then set the enabled of menu "Spooky Picture!" to falseaddColor colorRect, cd, (the rect of card window), "65535, 25000,0",1addcolor colorButton, cd, (id of cd btn id 1 of cd 1),"65535, 25000,0",3addColor colorPict, cd,(the short name of cd btn id 1 of cd 1),the rect of cd btn id 1, "t"-- pass openCardend openCardon closeCard--lock screenpass closeCardend closeCardon suspendStackreset paintloseMenuchoose browse toolend suspendStackon CloseStackglobal audioInUseAddColor removeloseMenuif "SPPlugIns" is in the stacksInUse then stop using stack "SPPlugIns"if audioInUse is true then start using stack "Audio Help"pass closeStackend closeStackon loseMenuif there is a menu "Spooky Picture!" thendelete menu "Spooky Picture!"reset menubarend ifend loseMenuon setUpMenusif there is a menu "Spooky Picture!" thenset the enabled of menu "Spooky Picture!" to trueexit setUpMenusend ifif there is not a menu "Spooky Picture!" then create menu "Spooky Picture!"put "Show Palette,Color Screen,Start Over,Save Picture,Help!" into menu "Spooky Picture!"-- set the commandChar of menuItem "Show Palette" of menu "Spooky Picture!" to "K"set the menuMessage of menuItem "Show Palette" of menu "Spooky Picture!"¬to "ShowPalette"-- set the commandChar of menuItem "Color Screen" of menu "Spooky Picture!" to "H"set the menuMessage of menuItem "Color Screen" of menu "Spooky Picture!"¬to "ColorGround"-- set the commandChar of menuItem "Start Over" of menu "Spooky Picture!" to "P"set the menuMessage of menuItem "Start Over" of menu "Spooky Picture!"¬to "EraseItAll"-- set the commandChar of menuItem "Save Picture" of menu "Spooky Picture!" to "L"set the menuMessage of menuItem "Save Picture" of menu "Spooky Picture!"¬to "SaveArt"set the menuMessage of menuItem "Help!" of menu "Spooky Picture!"¬to "HowTo"end setUpMenuson SaveArtset the cursor to watchif the version ≥ 2.3 then stop speechhideTheWindowshide msgput (the visible of menubar) into SeeMenuif SeeMenu then set the visible of menubar to falseput the rect of cd window into windowSize--add (the height of menubar) to item 2 of windowSizeif there is a window "art fun" then hide window "art fun"do "ScreenShot""e&"Global""e&comma&windowSizeput the result into theResultif theResult contains "err" thenanswer theResultexit SaveArtend ifask file "Save Picture as:" --with "Spooky Picture!"if it is empty thenif there is a window "art fun" then show window "art fun"set the visible of menubar to seeMenuexit SaveArtend ifput it into theFileNameClipboardToPict theFileName, "c=ttxt"if theResult contains "err" thenanswer theResultexit SaveArtend ifif there is a window "art fun" then show window "art fun"set the visible of menubar to seeMenuend SaveArton mouseUpanswer "This stack provides functionality to the stack"&"e&"Spooky Pictures™.""e&&¬"DoubleClick on ""e&"Spooky Pictures™""e&" on the desktop to play."with "Quit"end mouseUpon colorGroundglobal colorSeteraseItAllif colorSet is empty thenaddColor colorRect, cd, the rect of this card, "25000, 0,35000"elseaddColor colorRect, cd, the rect of this card, line (random(number of lines in colorSet)) of colorSetend ifend colorGroundon EraseItAllglobal pasteListlock screenchoose select tooldoMenu "Select All"doMenu "Clear Picture"checkForTooladdColor colorCard, rakeHorizOpen, 30-- select all and erase if card artif the version ≥ 2.3 then stop speechput empty into pasteListend EraseItAllon showPaletteif there is a window "art fun" thenshow window "art fun"elsepalette "art fun"set the loc of window "art Fun" to 40, 40end ifend showPaletteon colorSetUpglobal colorSetput empty into colorSet--put "65535,0,15535"& return after colorSet -- lipstick pinkput "65535,25000,0"& return after colorSetput "25535,0,0"& return after colorSet -- dk redput "0,0,15535"& return after colorSet -- dk blueput "25000, 0,35000"& return after colorSet --purpleput "0,0,0"& return after colorSet -- blackput "0,15535,25535"& return after colorSet -- dk blueput "35535,25000,0"& return after colorSet --mustardput "65535,25000,0"& return after colorSet --orangeend colorSetUpon checkForToolif tool() ≠ "browse tool" then choose browse toolreset paintend checkForToolon checkForSpeechif the version ≥ 2.3 thenif voices() is empty thenanswer quote&"Spooky Pictures™""e&" can make sounds too!! Get mom or dad or your teacher to install the Speech Manager"&&¬"Extension!" with "Try It!"--exit to HyperCardend ifelseexit checkForSpeechend ifend checkForSpeechon howToanswer "Click on any button on the palette,"&return&"and then click on"&&¬"the screen to make a Spooky Picture."&return&"Click on the eraser to"&&¬"start over."&return&"Click on"&"e&"Save""e&&"to save your picture."&&¬"You can use the HyperCard paint tools too!" with "Wow!!"end howToon hideTheWindowsput the windows into varrepeat with i = 1 to the number of lines in varif line i of var is in "SPPlugIns,Spooky Pictures™2.3,Spooky Pictures™2.2" thennext repeatelseif line i of var is in "message,tools,scroll, fatBits, patterns"&¬"variable watcher, message watcher" then hide window (line i of var)end ifend repeatend hideTheWindowson colorMeend colorMeon AC_Transitionsend AC_Transitions</script>
